'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   T a b l e t T e s t e r _ C o r e X Y _ 0 7 . t x t                     D a t e :   2 4   D i c e m b e r   2 0 1 9 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O   P h . D . 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 P O W E R _ I N               =   3 4 0 
 
 P O W E R _ O U T             =   7 5 0 
 
 U S B 3 _ I N                 =   2 0 0 
 
 U S B 3 _ O U T               =   6 1 0 
 
 U S B C _ I N                 =   3 5 2 
 
 U S B C _ O U T               =   6 5 0 
 
 H D M I _ I N                 =   9 5 5 
 
 H D M I _ O U T               =   6 2 0 
 
 U S B P W R _ I N             =   2 2 5 
 
 U S B P W R _ O U T           =   5 7 6 
 
 O N O F F _ I N               =   4 0 0 
 
 O N O F F _ O U T             =   6 0 0 
 
 V O L U M E _ I N             =   4 0 0 
 
 V O L U M E _ O U T           =   6 0 0 
 
 M E M O R Y _ I N             =   6 0 0 
 
 M E M O R Y _ O U T           =   4 0 0 
 
 H E A R S E T _ I N           =   4 0 0 
 
 H E A R S E T _ O U T         =   6 0 0 
 
 P E N _ D O W N               =   5 0 0 
 
 P E N _ U P                   =   1 9 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t M o t o r A           =   1 3 
 
 S l o t M o t o r B           =   1 5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 S p e e d   9 
 
 G o s u b   " P E N   U P " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 ' L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 L o a d   . . \ T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 B u t t o n   1   T e x t   " D E M O " 
 
 B u t t o n   2   T e x t   " M U L T I " 
 
 B u t t o n   3   T e x t   " Z E R O " 
 
 B u t t o n   4   T e x t   " P E N   U P " 
 
 ' B u t t o n   5   T e x t   " P E N   D O W N " 
 
 ' B u t t o n   5   T e x t   " P E N   A C T I O N " 
 
 B u t t o n   5   T e x t   " S A F E   R E M O V E " 
 
 B u t t o n   6   T e x t   " D I S A B L E   M O T O R S " 
 
 ' B u t t o n   7   T e x t   " A L L   O U T " 
 
 ' B u t t o n   7   T e x t   " A L L   I N " 
 
 
 
 B u t t o n   8   T e x t   " C L O S E   A L L " 
 
 
 
 S t o p 
 
 
 
 L a b e l   M U L T I 
 
 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 	 I f   V 2   =   0 
 
 	 	 V 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   C h a r s ( "   " ,   4 )   +   " C y c l e   i n   p r o g r e s s = "   +   F o r m a t ( v 1 ,   " 0 " ) 
 
 	 	 s 1   =   s 1   +   C h a r s ( "   " ,   4 )   +   " C y c l e   t o   d o : "   +   F o r m a t ( v 2 ,   " 0 " ) 
 
 	 	 P r i n t   s 1 
 
 	 	 G o s u b   D E M O 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   " S A F E   R E M O V E " 
 
 	 G o s u b   " E N A B L E   M O T O R S " 
 
 	 G o s u b   " P E N   U P " 
 
 	 D e s t X   =   1 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " Z E R O " 
 
 	 G o s u b   " A L L   O U T " 
 
 	 D e s t X   =   2 8 5 
 
 	 D e s t Y   =   7 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " D I S A B L E   M O T O R S " 
 
 	 G o s u b   " A L L   O U T " 
 
 R e t u r n 
 
 
 
 L a b e l   " D E M O " 
 
 	 G o s u b   " A L L   O U T " 
 
 	 G o s u b   " P O W E R   I N " 
 
 	 G o s u b   " E N A B L E   M O T O R S " 
 
 	 G o s u b   " P E N   U P " 
 
 	 D e s t X   =   1 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " Z E R O " 
 
 	 
 
 	 D e s t X   =   2 5 0 
 
 	 D e s t Y   =   7 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " H D M I   I N " 
 
 	 
 
 	 D e s t X   =   2 5 0 
 
 	 D e s t Y   =   1 3 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " H D M I   O U T " 
 
 	 
 
 	 D e s t X   =   1 5 0 
 
 	 D e s t Y   =   8 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " U S B 3   I N " 
 
 	 
 
 	 D e s t X   =   1 4 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " U S B 3   O U T " 
 
 	 
 
 	 D e s t X   =   7 0 
 
 	 D e s t Y   =   4 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " U S B C   I N " 
 
 	 
 
 	 D e s t X   =   8 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " U S B C   O U T " 
 
 	 
 
 	 D e s t X   =   5 0 
 
 	 D e s t Y   =   3 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " H D M I   I N " 
 
 	 
 
 	 D e s t X   =   7 0 
 
 	 D e s t Y   =   4 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " H D M I   O U T " 
 
 	 
 
 	 D e s t X   =   4 0 
 
 	 D e s t Y   =   3 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " U S B P W R   I N " 
 
 	 
 
 	 D e s t X   =   1 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " U S B P W R   O U T " 
 
 	 
 
 	 D e s t X   =   8 0 
 
 	 D e s t Y   =   4 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " P O W E R   I N " 
 
 	 
 
 	 D e s t X   =   1 5 0 
 
 	 D e s t Y   =   8 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 G o s u b   " P O W E R   O U T " 
 
 	 
 
 	 D e s t X   =   1 5 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 D e s t X   =   8 0 
 
 	 D e s t Y   =   1 0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " P E N   A C T I O N " 
 
 	 
 
 	 D e s t X   =   2 8 5 
 
 	 D e s t Y   =   7 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   " A L L   O U T " 
 
 	 G o s u b   " D I S A B L E   M O T O R S " 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 
 
 V a r i a b l e   N u m e r i c   D e s t Y 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t M o t o r B 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   Z E R O 
 
 	 G o s u b   " E N A B L E   M O T O R S " 
 
 	 G o s u b   " P E N   U P " 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 ' G o s u b   " D I S A B L E   M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	 '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   2 0 	 	 	 '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	 '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 2 	 	 '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	 '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   2 	 	 '   m o v e   t o   M M 
 
 	 G o s u b   " H o m e " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	 '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   1 9 	 	 	 '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   + 1 	 	 	 '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 2 	 	 '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	 '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   2 	 	 '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   '   d e t a c h   i f   s e n s o r   a c t i v e 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
 ' 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
 ' 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
 ' 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I n i t i a l   p o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t M o t o r A   +   1 ) )   <   0 . 0 1 
 
 	 	 	 I f   A b s ( S l o t ( S l o t M o t o r B   +   1 ) )   <   0 . 0 1 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 
 
 L a b e l   " S T A R T   L O O P " 
 
 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 G o s u b   " A L L   I N " 
 
 	 	 W a i t   S e c o n d s   0 . 5 
 
 	 	 G o s u b   " A L L   O U T " 
 
 	 	 W a i t   S e c o n d s   0 . 5 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   " A L L   O U T " 
 
 	 G o s u b   " P O W E R   O U T " 
 
 	 G o s u b   " U S B 3   O U T " 
 
 	 G o s u b   " U S B C   O U T " 
 
 	 G o s u b   " H D M I   O U T " 
 
 	 G o s u b   " U S B P W R   O U T " 
 
 	 G o s u b   " O N O F F   O U T " 
 
 	 G o s u b   " V O L U M E   O U T " 
 
 	 G o s u b   " M E M O R Y   O U T " 
 
 	 G o s u b   " H E A R S E T   O U T " 
 
 R e t u r n 
 
 
 
 L a b e l   " A L L   I N " 
 
 	 G o s u b   " P O W E R   I N " 
 
 	 G o s u b   " U S B 3   I N " 
 
 	 G o s u b   " U S B C   I N " 
 
 	 G o s u b   " H D M I   I N " 
 
 	 G o s u b   " U S B P W R   I N " 
 
 	 G o s u b   " O N O F F   I N " 
 
 	 G o s u b   " V O L U M E   I N " 
 
 	 G o s u b   " M E M O R Y   I N " 
 
 	 G o s u b   " H E A R S E T   I N " 
 
 R e t u r n 
 
 
 
 L a b e l   " P O W E R   O U T " 
 
 	 M o v e _ S l o t   =   1 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " P O W E R   I N " 
 
 	 M o v e _ S l o t   =   1 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B 3   O U T " 
 
 	 M o v e _ S l o t   =   2 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B 3   I N " 
 
 	 M o v e _ S l o t   =   2 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B C   I N " 
 
 	 M o v e _ S l o t   =   3 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B C   O U T " 
 
 	 M o v e _ S l o t   =   3 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H D M I   O U T " 
 
 	 M o v e _ S l o t   =   4 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H D M I   I N " 
 
 	 M o v e _ S l o t   =   4 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B P W R   O U T " 
 
 	 M o v e _ S l o t   =   5 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B P W R   I N " 
 
 	 M o v e _ S l o t   =   5 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " O N O F F   O U T " 
 
 	 M o v e _ S l o t   =   6 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " O N O F F   I N " 
 
 	 M o v e _ S l o t   =   6 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   O U T " 
 
 	 M o v e _ S l o t   =   7 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   I N " 
 
 	 M o v e _ S l o t   =   7 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " M E M O R Y   O U T " 
 
 	 M o v e _ S l o t   =   8 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " M E M O R Y   I N " 
 
 	 M o v e _ S l o t   =   8 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H E A R S E T   O U T " 
 
 	 M o v e _ S l o t   =   9 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H E A R S E T   I N " 
 
 	 M o v e _ S l o t   =   9 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   8 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   U P " 
 
 	 M o v e _ S l o t   =   1 8 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 M o v e _ S p e e d   =   2 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   D O W N " 
 
 	 M o v e _ S l o t   =   1 8 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 M o v e _ S p e e d   =   2 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   A C T I O N " 
 
 	 G o s u b   " P E N   D O W N " 
 
 	 W a i t   S e c o n d s   0 . 4 
 
 	 G o s u b   " P E N   U P " 
 
 R e t u r n 
 
 
 
 L a b e l   " E N A B L E   M O T O R S " 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( 1 7 )   =   9 9 9 
 
 R e t u r n 
 
 
 
 L a b e l   " D I S A B L E   M O T O R S " 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( 1 7 )   =   1 
 
 R e t u r n 
 
 
 
 L a b e l   " C L O S E   A L L " 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 v 1   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   v 1 
 
 	 	 v 1   =   v 1   +   M o v e _ S p e e d 
 
 	 	 I f   v 1   >   M o v e _ D e s t 
 
 	 	 	 v 1   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 v 1   =   v 1   -   M o v e _ S p e e d 
 
 	 	 I f   v 1   <   M o v e _ D e s t 
 
 	 	 	 v 1   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   v 1 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   v 1   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 
 
 ' W A T C H   M o v e _ S l o t 
 
 ' W A T C H   M o v e _ S p e e d 
 
 ' W A T C H   S l o t M o t o r A 
 
 ' W A T C H   S l o t M o t o r B 
 
 